-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x5000 (can't delete)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 3
-- first background id: 2282
-- card count: 5
-- first card id: 5060
-- list block id: 4090
-- print block id: 3372
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 27296 bytes
-- stack block size: 6144 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x01258000
-- modified by hypercard version: 0x01258000
-- opened by hypercard version: 0x01258000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x0000220000002200
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0xCC003300CC003300
-- patterns[4]: 0xCC883322CC883322
-- patterns[5]: 0xEE88BB22EE88BB22
-- patterns[6]: 0xEECCBB33EECCBB33
-- patterns[7]: 0xFFCCFF33FFCCFF33
-- patterns[8]: 0xFFEEFFBBFFEEFFBB
-- patterns[9]: 0xFFFFFFBBFFFFFFBB
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on xy -- affiche les coordonnées de la souris dans l'Editeur de message
  repeat until the mouse is down
    put the mouseLoc
  end repeat
end xy

on c
  choose browse tool
  doMenu "Card Info..."
end c

on b
  choose browse tool
  doMenu "Bkgnd Info..."
end b

on s
  choose browse tool
  doMenu "Stack Info..."
end s

on startUp
  getHomeInfo
  pass startUp -- à une éventuelle XCMD "startUp"
end startUp

on resume
  getHomeInfo
  pass resume -- à une éventuelle XCMD "resume"
end resume

on getHomeInfo
  global stacks,applications,documents,userName
  set lockScreen to true
  set lockMessages to true
  push this card
  go to card "préférences" of stack "Base"
  put card field "Utilisateur" into userName
  set userLevel to card field "Niveau d'utilisation"
  set powerKeys to the hilite of button "Raccourcis"
  set textArrows to the hilite of button "Déplacement du curseur"
  set blindTyping to the hilite of button "Saisie masquée"
  put field "paths" of card "stacks" into stacks
  put field "paths" of card "applications" into applications
  put field "paths" of card "documents" into documents
  pop card
  set lockScreen to false
  set lockMessages to false
end getHomeInfo

-- Le script suivant recherche un motClé dans tous les scripts de
-- la pile spécifiée.

on searchScript motClé,nomPile
  set lockMessages to true
  push card
  if nomPile is not empty then go to stack nomPile

  if the script of this stack contains motClé
  then edit script of this stack

  repeat with i = 1 to the number of bkgnds
    go to card 1 of bkgnd i
    if the script of this bkgnd contains motClé
    then edit script of bkgnd

    repeat with j = 1 to the number of bkgnd buttons
      if the script of bkgnd button j contains motClé
      then edit script of bkgnd button j
    end repeat

    repeat with j = 1 to the number of bkgnd fields
      if the script of bkgnd field j contains motClé
      then edit script of bkgnd field j
    end repeat

  end repeat

  repeat with i = 1 to the number of cards
    go card i
    if the script of this card contains motClé
    then edit script of this card

    repeat with j = 1 to the number of card buttons
      if the script of card button j contains motClé
      then edit script of card button j
    end repeat

    repeat with j = 1 to the number of card fields
      if the script of card field j contains motClé
      then edit script of card field j
    end repeat

  end repeat
  pop card
  set lockMessages to false
end searchScript